home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / asmutil / asm_n_z.zip / TSRSH.ASM < prev    next >
Assembly Source File  |  1987-02-02  |  27KB  |  1,100 lines
  1. PAGE    60,132
  2. TITLE    Ram-Resident Program Shell, Preliminary Version (Lesson 2)
  3. SUBTTL    Date 02-02-87 -- Tutorial for Microsoft Forum  Version 0.03
  4. ;-----------------------------------------------------------------------------
  5. ;    Ram-Resident Program Shell
  6. ;
  7. ;
  8. ;The software, documentation and source code are: 
  9. ; 
  10. ;    (C) Copyright 1986, 1987
  11. ;    Chip Rabinowitz
  12. ;    All Rights Reserved 
  13. ; 
  14. ;    51 East Rogues Path
  15. ;    Huntington Station NY 11746
  16. ;    Assistant SysOp, Microsoft Forum, Compuserve PPN 76703,350
  17. ; 
  18. ; 
  19. ;COPYRIGHT NOTICE AND WARRANTY INFORMATION 
  20. ;----------------------------------------- 
  21. ; 
  22. ;This document ("the source code"), other accompanying written and disk-based
  23. ;notes and specifications ("the documentation"), and all referenced and related
  24. ;program files accompanying the source code and the documentation ("the
  25. ;software") are copyrighted by Chip Rabinowitz.  
  26. ;
  27. ;This program has been uploaded to Compuserve as part of a Tutorial in how
  28. ;to write Terminate-But-Stay-Resident programs, being conducted on
  29. ;Compuserve's Microsoft Special Interest Group during early 1987/
  30. ;
  31. ;This code (and all other code uploaded by the Copyright Holder as a 
  32. ;part of this TSR Tutorial) may be used with the following restrictions: 
  33. ;
  34. ;(1) If all or part of this code is used as part of a software package of 
  35. ;ANY kind, the following acknowledgement must be used in the Documentation 
  36. ;accompanying said package:
  37. ;
  38. ;    'Parts of the Resident Program Management for this Product are'
  39. ;    'Copyright (C) 1986, 1987 by Chip Rabinowitz, and are incorporated'
  40. ;    'into this product courtesy of the Ringmaster Development Team'
  41. ;
  42. ;(2) If all or part of this code is used as part of a software package that
  43. ;is placed in the public domain, no further restrictions apply.
  44. ;
  45. ;(3) If all or part of this code is used as part of a software package that
  46. ;is being distributed as 'shareware', a one-time-only donation of $10 will be
  47. ;accepted for the express purpose of continuing research into TSR standards.
  48. ;Note that this is a voluntary contribution, and should be sent to the
  49. ;Ringmaster Development Team at the address printed above.
  50. ;
  51. ;(4) If all or part of this code is used as part of a software package that
  52. ;will be distributed as a commercial product, a one-time-only payment of
  53. ;$25 will be accepted the express purpose of continuing research into TSR 
  54. ;standards.  Note that in THIS CASE ONLY, this is not a voluntary 
  55. ;contribution.  Commercial Developers are REQUIRED to make payment prior to
  56. ;incorporating these routines into their product.
  57. ;
  58. ;No copy of the source code may be distributed or given away without the
  59. ;accompanying documentation; and this notice must not be removed. 
  60. ; 
  61. ;There is no warranty of any kind associated with this software, and the
  62. ;copyright owner is not liable for damages of any kind.  By using this
  63. ;software, you agree to this. 
  64. ; 
  65. ;
  66.  
  67. XON     equ    11h
  68. XOFF    equ    13h
  69. TRUE    equ    1
  70. FALSE   equ    0
  71. CR    equ    0dh
  72. LF    equ    0ah
  73. TAB    equ    9
  74.  
  75.  
  76. HOTKEYON    equ    01h    ;hot key pressed
  77. SHIFTSON    equ    02h    ;shift states match
  78. TSRACTIVE    equ    04h    ;tsr is running in foreground
  79. INT28ACTIVE    equ    08h    ;INT28 routine is running in background
  80.  
  81. KB_DATA    equ    60h
  82. KB_CTL    equ    61h
  83. KB_FLG1    equ    17h
  84. KB_FLG2    equ    18h
  85. BIOS_DATA    equ    40h
  86.  
  87. code segment para public 'CODE'
  88.     org 100h
  89.     assume    cs:code, ds:code, es:code
  90. start:    jmp    begin
  91.  
  92.     db    1bh,'[2J'
  93. cpyrt    db    'Ram-Resident Program Shell, Preliminary Version (Lesson 2)',
  94.     db    CR,LF,LF
  95.     db    'Copyright (C) 1986, 1987 Chip Rabinowitz',
  96.     db    CR,LF,'All Rights Reserved',CR,LF,LF,'$'
  97. hello    db    'Hello World!',CR,LF,'$'
  98. bad_dos_msg    db    'Incompatible DOS version .... Aborting!',07h,CR,LF,'$'
  99.  
  100. tsr_parms:
  101.     PSP    dw    ?    ;PSP of TSR
  102.     OLDPSP    dw    ?    ;location to save current PSP
  103.     DTA    dd    ?    ;DTA of TSR
  104.     OLDDTA    dd    ?    ;location to save current DTA
  105.     DSEG    dw    ?    ;TSR's Data Segment
  106.     SSEG    dw    ?    ;TSR's Stack Segment ....
  107.     SPTR    dw    0fffeh    ;.... and Stack Pointer
  108.     ISSEG    dw    0    ;interrupted SS ...
  109.     ISPTR    dw    0    ;..... and SP
  110.     SHIFTST    db    0    ;Shift State to Activate
  111.     HOTKEY    db    0ffh    ;scan code to activate
  112.     STATUS    dw    0    ;current status words
  113.     POPUP    dd    0    ;far pointer to popup routine
  114.  
  115. intflags    db    0
  116. ININT13        equ    04h    ;Bios disk interrupt
  117. ININT21        equ    08h    ;DOS interrupt
  118.  
  119. dosversion    db    0    ;current version of DOS
  120. waitcount    db    0    ;wait to activate count
  121.  
  122. indosflag    dd    0    ;Pointer to INDOS flag
  123. doscriterr    dd    0    ;Pointer to DOS Critical Error Flag
  124.  
  125. dossseg        dw    0    ;pointer to dos stack segment
  126. dossptr        dw    0    ;pointer to dos stack pointer
  127. dossize        dw    0    ;dos stack size
  128.  
  129. dos21funcs    label    byte
  130.     db    0,    0,    0,    0,    0,    0,    0,    0    ;0-7
  131.     db    0,    0,    0,    0,    0,    0ffh,    0ffh,    0ffh    ;8-f
  132.     db     0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;10-17
  133.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;18-1f
  134.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0,    0ffh    ;20-27
  135.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0    ;28-2f
  136.     db    0ffh,    0,    0,    0,    0,    0,    0ffh,    0ffh    ;30-37
  137.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;38-3f
  138.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;40-47
  139.     db    0,    0,    0,    0,    0ffh,    0,    0ffh,    0ffh    ;48-4f **
  140.     db    0,    0,    0,    0,    0ffh,    0,    0ffh,    0ffh    ;50-57
  141.     db    0,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0,    0    ;58-5f
  142.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;60-67
  143.  
  144. ;
  145. ; ***************************************************************************
  146. ;    These are the bios interrupt vectors
  147. ;
  148.  
  149. BIOSI8    equ    08h        ;Bios Timer interrupt
  150. BIOSI9    equ    09h        ;BIOS Hardware Keyboard interrupt
  151. BIOSIB    equ    0Bh
  152. BIOSIC    equ    0Ch
  153. BIOSI10    equ    10h
  154. BIOSI13    equ    13h        ;Bios Disk interrupt
  155. BIOSI14    equ    14h
  156. BIOSI15    equ    15h
  157. BIOSI16    equ    16h        ;Bios Keyboard interrupt
  158. BIOSI17    equ    17h
  159. BIOSI1C    equ    1Ch
  160. DOSI21    equ    21h        ;DOS service router interrupt
  161. DOSI28    equ    28h        ;DOS Idle interrupt
  162. DOSI33    equ    33h        ;mouse interrupt
  163. BIOSI1B    equ    1Bh
  164. DOSI23    equ    23h
  165. DOSI24    equ    24h
  166. ;
  167. oldint8        dd    0    ;BIOS Hardware Timer Interrupt
  168.         db    BIOSI8
  169.         dw    offset newint8    ;replacement vector
  170. oldint9        dd    0    ;BIOS Hardware Keyboard Interrupt
  171.         db    BIOSI9
  172.         dw    offset newint9    ;replacement vector
  173. oldint13    dd    0    ;BIOS Disk Interrupt
  174.         db    BIOSI13
  175.         dw    offset newint13    ;replacement vector
  176. oldint16    dd    0    ;BIOS Software Keyboard Interrupt
  177.         db    BIOSI16
  178.         dw    offset newint16    ;replacement vector
  179. oldint21    dd    0    ;DOS Services Interrupt
  180.         db    DOSI21
  181.         dw    offset newint21    ;replacement vector
  182. oldint28    dd    0    ;DOS Idle Interrupt
  183.         db    DOSI28
  184.         dw    offset newint28    ;replacement vector
  185. oldint1B    dd    0    ;control-C vector
  186.         db    BIOSI1B
  187.         dw    offset intret    ;replacement vector
  188. oldint23    dd    0    ;control-C vector
  189.         db    DOSI23
  190.         dw    offset intret    ;replacement vector
  191. oldint24    dd    0    ;critical error vector
  192.         db    DOSI24
  193.         dw    offset newint24    ;replacement vector
  194.  
  195. ;
  196. ; ***************************************************************************
  197. ;    Function to restore interrupts.
  198. ;
  199. ;    If AX=0, this function does popup-interrupts (1B, 23 and 24)
  200. ;    If AX=anything else, this function does initial interrupts
  201. ;
  202. restore_int proc near
  203.     push    ds
  204.     push    ax
  205.     push    dx
  206.     push    si
  207.     push    di
  208.     push    cx
  209.     mov    di,7            ;7 bytes per structure
  210.  
  211.     or    ax,ax
  212.     jnz    restore1
  213.  
  214.     mov    cx,3            ;three times through
  215.     mov    si,offset oldint1B    ;start at table beginning
  216.     jmp    restore_loop
  217. restore1:
  218.     mov    cx,06h            ;six interrupts!
  219.     mov    si,offset oldint8    ;top of table
  220.  
  221. restore_loop:
  222.     push    cx
  223.     push    di            ;save structure size
  224.     push    ds
  225.     mov    al,4[si]        ;interrupt number
  226.     mov    dx,[si]            ;IP of interrupt vector
  227.     mov    ds,2[si]        ;CS of interrupt vector
  228.     mov    ah,25h            ;set interrupt vector function
  229.     int    21h
  230.     pop    ds
  231.     xor    ax,ax            ;clear this entry from table
  232.     mov    [si],ax            ;so it shows not used
  233.     mov    2[si],ax
  234.     pop    di            ;get size back
  235.     add    si,di            ;do it again
  236.     pop    cx
  237.     loop    restore_loop
  238.  
  239.     pop    cx
  240.     pop    di
  241.     pop    si
  242.     pop    dx
  243.     pop    ax
  244.     pop    ds
  245.     ret
  246. restore_int endp
  247. ;
  248. ; ***************************************************************************
  249. ;    Function to set interrupts.
  250. ;
  251. ;    If AX=0, this function does popup-interrupts (1B, 23 and 24)
  252. ;    If AX=anything else, this function does initial interrupts
  253. ;
  254. setup_int proc near
  255.     push    es
  256.     push    ax
  257.     push    bx
  258.     push    dx
  259.     push    di
  260.     push    si
  261.     push    cx
  262.     mov    di,7            ;7 bytes per structure
  263.  
  264.     or    ax,ax
  265.     jnz    setup1